From 171cc6be3af648f58744d596149e243a7965cda3 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 25 May 2010 15:33:55 +0200 Subject: [PATCH] * net/tramp.el (tramp-handle-insert-directory): Don't use `forward-word', it's default syntax could be changed. --- lisp/net/tramp.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 075e931878e..91b35481730 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -4300,13 +4300,11 @@ This is like `dired-recursive-delete-directory' for Tramp files." (forward-line -2) (when (looking-at "//SUBDIRED//") (forward-line -1)) - (when (looking-at "//DIRED//") - (let ((end (tramp-compat-line-end-position)) - (linebeg (point))) + (when (looking-at "//DIRED//\\s-+") + (let ((databeg (match-end 0)) + (end (tramp-compat-line-end-position))) ;; Now read the numeric positions of file names. - (goto-char linebeg) - (forward-word 1) - (forward-char 3) + (goto-char databeg) (while (< (point) end) (let ((start (+ beg (read (current-buffer)))) (end (+ beg (read (current-buffer))))) -- 2.30.2